Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/Bonus/Plasmatech/ptscp_examples.exe/%MAINDIR%/Examples/Demo/FExplorer.dfm/FExplorer.txt

Text File | 2001-08-31 | 13.3 KB | 443 lines

object FrmExplorer: TFrmExplorer
  Left = 180
  Top = 150
  Width = 656
  Height = 464
  Caption = 'Shell Control Pack - Mini Explorer'
  Color = clBtnFace
  ParentFont = True
  KeyPreview = True
  Menu = MainMenu1
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object PTGroup1: TPTGroup
    Left = 0
    Top = 0
    Width = 648
    Height = 29
    FrameStyle = ptfsHorzLine
    Align = alTop
    TabOrder = 0
    object DetailsBtn: TSpeedButton
      Tag = 3
      Left = 346
      Top = 3
      Width = 23
      Height = 22
      GroupIndex = 1
      Down = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
        22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
        22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
        22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
        22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
        22222FFFFFFFFFFFFFFF44444444444444448888888888888888222222222222
        22222222FFFF2FFF2FFF22200002000200022228888288828882222222222222
        2222222222222222222222222222222222222222222222222222}
      NumGlyphs = 2
      OnClick = ViewBtnClick
    end
    object ListBtn: TSpeedButton
      Tag = 2
      Left = 323
      Top = 3
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42
        00028F8288828F82888244222222442222228822222288222222222222222222
        2222222222222222222222222222222222222FFF22222FFF2222444222224442
        2222888F2FFF888F2FFF4F4200024F4200028F8288828F828882442222224422
        2222882222228822222222222222222222222222222222222222222222222222
        22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42
        00028F8288828F82888244222222442222228822222288222222222222222222
        2222222222222222222222222222222222222222222222222222}
      NumGlyphs = 2
      OnClick = ViewBtnClick
    end
    object SmallIconsBtn: TSpeedButton
      Tag = 1
      Left = 300
      Top = 3
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        22222222FFF2222222222224442222222222222888F2FFF222222224F4200022
        22222228F8288822222222244222222222222228822222222222222222222222
        222222222222222222222222222222222222222222222FFF2222222222224442
        222222222222888F2FFF222222224F420002222222228F828882222222224422
        2222222222228822222222222222222222222222222222222222222222222222
        222222FFF2222222222224442222222222222888F2FFF222222224F420002222
        222228F828882222222224422222222222222882222222222222222222222222
        2222222222222222222222222222222222222222222222222222}
      NumGlyphs = 2
      OnClick = ViewBtnClick
    end
    object LargeIconsBtn: TSpeedButton
      Left = 277
      Top = 3
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        22222222222222FFFFFF22222222200000022222222228888882222222222222
        222222222222222FFFF2222222222244442222222222228888F222222222224F
        F42222222222228F28F222222222224FF42222222222228F28F222222222224F
        442222FFFFFF228F882220000002224442222888888222888222222222222222
        2222222FFFF2222222222244442222222222228888F222222222224FF4222222
        2222228F28F222222222224FF42222222222228F28F222222222224F44222222
        2222228F88222222222222444222222222222288822222222222222222222222
        2222222222222222222222222222222222222222222222222222}
      NumGlyphs = 2
      OnClick = ViewBtnClick
    end
    object UpOneLevelBtn: TSpeedButton
      Left = 212
      Top = 3
      Width = 23
      Height = 22
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        2222222222222222222200000000000000020FBFBFBFBFBFBF020BFBFBFBFBFB
        FB020FBFB000000FBF020BFBF0FBFBFBFB020FBFB0BFBFBFBF020BF00000FBFB
        FB020FBF000FBFBFBF020BFBF0FBFBFBFB020FBFBFBFBFBFBF02000000000000
        002220BFBFB02222222222000002222222222222222222222222}
      OnClick = UpOneLevelBtnClick
    end
    object DeleteBtn: TSpeedButton
      Left = 244
      Top = 3
      Width = 23
      Height = 22
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDDD0DDDDDDDDDD0DDD000DDDDDDDDDDDDD0000DDDDDD
        D0DDDDD000DDDDDD0DDDDDDD000DDDD00DDDDDDDD000DD00DDDDDDDDDD00000D
        DDDDDDDDDDD000DDDDDDDDDDDD00000DDDDDDDDDD000DD00DDDDDDD0000DDDD0
        0DDDDD0000DDDDDD00DDDD000DDDDDDDDD0DDDDDDDDDDDDDDDDD}
      OnClick = DeleteBtnClick
    end
    object PTShellCombo1: TPTShellCombo
      Left = 0
      Top = 2
      Width = 205
      Height = 22
      ShellTree = PTShellTree1
      DropDownCount = 24
      TabOrder = 0
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 400
    Width = 648
    Height = 18
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PTSplitter1: TPTSplitter
    Left = 0
    Top = 29
    Width = 648
    Height = 371
    Align = alClient
    Position = 234
    SplitterWidth = 4
    TabOrder = 2
    object TPTPane
      Left = 0
      Top = 0
      Width = 234
      Height = 371
      FrameStyle = ptfsNone
      Color = clNone
      ParentColor = False
      TabOrder = 0
      MinSize = 75
      Index = 0
      object PTShellTree1: TPTShellTree
        Left = 0
        Top = 0
        Width = 234
        Height = 371
        ShellList = PTShellList1
        OnPopupHint = PTShellList1PopupHint
        OnCustomDrawSh = PTShellTree1CustomDrawSh
        ShowRoot = False
        DragMode = dmAutomatic
        HideSelection = False
        Indent = 19
        OnChange = PTShellTree1Change
        Align = alClient
        ParentColor = False
        ParentCtl3D = False
        Ctl3D = True
        TabOrder = 0
      end
    end
    object TPTPane
      Left = 238
      Top = 0
      Width = 410
      Height = 371
      FrameStyle = ptfsNone
      Color = clNone
      ParentColor = False
      TabOrder = 1
      MinSize = 75
      Index = 1
      object PTShellList1: TPTShellList
        Left = 0
        Top = 0
        Width = 410
        Height = 371
        OnPopupHint = PTShellList1PopupHint
        OnCustomDrawSh = PTShellList1CustomDrawSh
        Align = alClient
        ReadOnly = False
        HideSelection = False
        IconOptions.AutoArrange = True
        MultiSelect = True
        PopupMenu = ListPopup
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 528
    Top = 8
    object File1: TMenuItem
      Caption = '&File'
      object New1Submenu: TMenuItem
        Caption = 'Ne&w'
        object NewFolder1Mitm: TMenuItem
          Caption = '&Folder'
          OnClick = NewFolder1MitmClick
        end
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object CloseMitm: TMenuItem
        Caption = '&Close'
        OnClick = CloseMitmClick
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Cantundo1: TMenuItem
        Caption = 'Can'#39't Undo'
        Enabled = False
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'C&ut'#9'Ctrl+X'
        Enabled = False
      end
      object Copy1: TMenuItem
        Caption = '&Copy'#9'Ctrl+C'
        Enabled = False
      end
      object Paste1: TMenuItem
        Caption = '&Paste'#9'Ctrl+V'
        OnClick = Paste1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Caption = 'Select &All'
        Hint = 'Selects all the items in the window.'
        ShortCut = 16449
        OnClick = SelectAll1Click
      end
      object InvertSelection1: TMenuItem
        Caption = '&Invert Selection'
        Hint = 'Reverses which items are selected and which are not.'
        OnClick = InvertSelection1Click
      end
    end
    object View1Submenu: TMenuItem
      Caption = '&View'
      object LargeIcons2Mitm: TMenuItem
        Caption = 'Lar&ge icons'
        RadioItem = True
        OnClick = ViewBtnClick
      end
      object Smallicons2Mitm: TMenuItem
        Tag = 1
        Caption = 'S&mall icons'
        RadioItem = True
        OnClick = ViewBtnClick
      end
      object List2Mitm: TMenuItem
        Tag = 2
        Caption = '&List'
        RadioItem = True
        OnClick = ViewBtnClick
      end
      object Details2Mitm: TMenuItem
        Tag = 3
        Caption = '&Details'
        Checked = True
        RadioItem = True
        OnClick = ViewBtnClick
      end
    end
    object F1: TMenuItem
      Caption = '&Test'
      Hint = 'Contains examples of tree features.'
      object TreeSelectPathnameMitm: TMenuItem
        Caption = '&Select a Pathname...'
        Hint = 'Select folder with the dialog and see the tree change.'
        OnClick = TreeSelectPathnameMitmClick
      end
      object TreeRefreshMitm: TMenuItem
        Caption = '&Refresh'
        Hint = 'Refresh the contents of the tree and list.'
        ShortCut = 116
        OnClick = TreeRefreshMitmClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object TreeViewSelectedPathnameMitm: TMenuItem
        Caption = 'View selected pathname...'
        OnClick = TreeViewSelectedPathnameMitmClick
      end
    end
    object CustomDraw1: TMenuItem
      Caption = '&Custom Draw'
      Hint = 'Contains demonstrations of the custom draw feature.'
      object Highlightexecutables1: TMenuItem
        Caption = '&Highlight list executables'
        Hint =
          'Highlights list view executable files in the list using a blue/b' +
          'old font.'
        OnClick = Highlightexecutables1Click
      end
      object Dimreadonlyfoldersintree1: TMenuItem
        Caption = 'Dim read-only files and folders'
        Hint = 'Show read-only files and folder'
        OnClick = Dimreadonlyfoldersintree1Click
      end
    end
    object Hotkeys1: TMenuItem
      Caption = 'Hotkeys'
      Visible = False
      object F11Mitm: TMenuItem
        Caption = 'Send command'
        ShortCut = 122
        OnClick = F11MitmClick
      end
    end
  end
  object PTSysFolderDlg1: TPTSysFolderDlg
    Domain = csidlDesktop
    Options = []
    Title = 'Select something.'
    Left = 500
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 472
    Top = 8
    object Item11: TMenuItem
      Caption = 'Item1'
    end
    object Item21: TMenuItem
      Caption = 'Item2'
    end
  end
  object ListPopup: TPopupMenu
    Left = 568
    Top = 8
    object View2Submenu: TMenuItem
      Caption = '&View'
      object LargeIconsMitm: TMenuItem
        Caption = 'Lar&ge icons'
        RadioItem = True
        OnClick = ViewBtnClick
      end
      object SmalliconsMItm: TMenuItem
        Tag = 1
        Caption = 'S&mall icons'
        RadioItem = True
        OnClick = ViewBtnClick
      end
      object ListMitm: TMenuItem
        Tag = 2
        Caption = '&List'
        RadioItem = True
        OnClick = ViewBtnClick
      end
      object DetailsMitm: TMenuItem
        Tag = 3
        Caption = '&Details'
        Checked = True
        RadioItem = True
        OnClick = ViewBtnClick
      end
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object Paste2Mitm: TMenuItem
      Caption = 'P&aste'
      OnClick = Paste1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object New2Submenu: TMenuItem
      Caption = 'Ne&w'
      object NewFolder2Mitm: TMenuItem
        Caption = '&Folder'
        OnClick = NewFolder1MitmClick
      end
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object Properties1Mitm: TMenuItem
      Caption = '&Properties'
      OnClick = Properties1MitmClick
    end
  end
end